home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / xmdmdlp.zip / FDATE.ASM < prev    next >
Assembly Source File  |  1992-01-28  |  3KB  |  98 lines
  1.     title    dlgopena.asm
  2. ;*******************************************************************************
  3. ;*                                           *
  4. ;*  MODULE    : DLGOPENA.ASM                               *
  5. ;*                                           *
  6. ;*  DESCRIPTION : Assembly language helper routines for DLGOPEN.C           *
  7. ;*                                           *
  8. ;*  FUNCTIONS    : chdir ()  - change to specified asciiz directory.           *
  9. ;*                                           *
  10. ;*******************************************************************************
  11. ?WIN = 1
  12.  
  13. ?PLM=1        ; PASCAL Calling convention is DEFAULT
  14. ?WIN=1        ; Windows calling convention
  15. ?386=0        ; Use 386 code?
  16. include cmacros.inc
  17.  
  18. ;*********************************************************************
  19. ;* The following structure should be used to access high and low
  20. ;* words of a DWORD.  This means that "word ptr foo[2]" -> "foo.hi".
  21. ;*********************************************************************
  22.  
  23. LONG    struc
  24. lo      dw      ?
  25. hi      dw      ?
  26. LONG    ends
  27.  
  28. FARPOINTER      struc
  29. off     dw      ?
  30. sel     dw      ?
  31. FARPOINTER      ends
  32.  
  33. ;*********************************************************************
  34. ;               DATA SEGMENT DECLARATIONS
  35. ;*********************************************************************
  36.  
  37. ifndef SEGNAME
  38.     SEGNAME equ <TEXT>
  39. endif
  40.  
  41. if ?386
  42.     .386p
  43.     createSeg _%SEGNAME, CodeSeg, word, use16, CODE
  44. else
  45.     .286p
  46.     createSeg _%SEGNAME, CodeSeg, word, public, CODE
  47. endif
  48.  
  49. sBegin    DATA
  50. sEnd    DATA
  51.  
  52. sBegin    CodeSeg
  53.  
  54. assumes CS,CodeSeg
  55. assumes DS,DATA
  56.  
  57. ;****************************************************************************
  58. ;*                                                                          *
  59. ;*  FUNCTION   : getftime(handle)                                           *
  60. ;*                                                                          *
  61. ;*  PURPOSE    : Get file time return                                       *
  62. ;*                                                                          *
  63. ;****************************************************************************
  64.  
  65. cProc   getftime,<PUBLIC,FAR,PASCAL>,<ds>
  66.     parmW handle
  67. cBegin
  68.     mov      bx,handle
  69.     mov      ah,57H
  70.     mov      al,0
  71.     int      21H
  72.     mov      ax,cx
  73. cEnd
  74.  
  75. ;****************************************************************************
  76. ;*                                                                          *
  77. ;*  FUNCTION   : getftime(handle)                                           *
  78. ;*                                                                          *
  79. ;*  PURPOSE    : Get file time return                                       *
  80. ;*                                                                          *
  81. ;****************************************************************************
  82.  
  83. cProc   getfdate,<PUBLIC,FAR,PASCAL>,<ds>
  84.     parmW handle
  85. cBegin
  86.     mov      bx,handle
  87.     mov      ah,57H
  88.     mov      al,0
  89.     int      21H
  90.     mov      ax,dx
  91. cEnd
  92.  
  93.  
  94.  
  95. sEnd    CodeSeg
  96.  
  97. end
  98.